home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / hdf3_2r2.lha / HDF3.2r2 / src / dfufp2if.f < prev    next >
Encoding:
Text File  |  1992-10-28  |  4.4 KB  |  112 lines
  1. C***************************************************************************
  2. C
  3. C
  4. C                         NCSA HDF version 3.2r2
  5. C                            October 30, 1992
  6. C
  7. C NCSA HDF Version 3.2 source code and documentation are in the public
  8. C domain.  Specifically, we give to the public domain all rights for future
  9. C licensing of the source code, all resale rights, and all publishing rights.
  10. C
  11. C We ask, but do not require, that the following message be included in all
  12. C derived works:
  13. C
  14. C Portions developed at the National Center for Supercomputing Applications at
  15. C the University of Illinois at Urbana-Champaign, in collaboration with the
  16. C Information Technology Institute of Singapore.
  17. C
  18. C THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. C SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. C WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. C
  22. C***************************************************************************
  23.  
  24. C
  25. C $Header: /hdf/hdf/v3.2r2/src/RCS/dfufp2if.f,v 1.1 1992/08/25 21:40:44 koziol beta koziol $
  26. C
  27. C $Log: dfufp2if.f,v $
  28. c Revision 1.1  1992/08/25  21:40:44  koziol
  29. c Initial revision
  30. c
  31. C
  32. C------------------------------------------------------------------------------
  33. C File:     DFUfptoimFf.f
  34. C Purpose:  Fortran stub for DFUfptoimage()
  35. C Invokes:  DFUfptoimage.c
  36. C Contents: 
  37. C   duf2im:       call duif2i_ to invoke DFUfptoimage()
  38. C   dfufptoimage: call duif2i_ to invoke DFUfptoimage()
  39. C -----------------------------------------------------------------------------
  40.  
  41. C------------------------------------------------------------------------------
  42. C Name:     duf2im
  43. C Purpose:   call duif2i_ to invoke DFUfptoimage()
  44. C Inputs:   
  45. C      hdim, vdim: horizontal and vertical dimensions of input data
  46. C      max, min:   maximum and minimum values in the data
  47. C      hscale,vscale: optional horizontal and vertical scales
  48. C      data:       input data
  49. C      palette:    optional palette to be stored with the image
  50. C      outfile:n   name of hdf file to store image in
  51. C      ct_method:  color transform method: 1=EXPAND; 2=INTERP
  52. C      hres, vres: resolutions desired for output image
  53. C      compress:   compression flag: 0=don't; 1=do
  54. C  Returns: 0 on success, -1 on failure with DFerror set
  55. C  Users:       HDF HLL (high-level library) users, utilities, other routines
  56. C  Invokes: process
  57. C  Remarks: none
  58. C----------------------------------------------------------------------------
  59.  
  60.  
  61.       integer function duf2im(hdim,vdim,max,min,hscale,vscale,data,
  62.      *                palette,outfile,ct_method,hres,vres,compress)
  63.  
  64.       integer       hdim, vdim
  65.       real          max, min, hscale, vscale, data
  66.       character*(*) palette
  67.       character*(*) outfile
  68.       integer       ct_method, hres, vres, compress
  69.  
  70.       duf2im = duif2i(hdim,vdim,max,min,hscale,vscale,data,palette,
  71.      *              outfile,ct_method,hres,vres,compress, len(outfile))        
  72.       return
  73.       end
  74.  
  75. CEND7MAX
  76.  
  77. C------------------------------------------------------------------------------
  78. C Name:     dfufptoimage
  79. C Purpose:   call duif2i_ to invoke DFUfptoimage()
  80. C Inputs:   
  81. C      hdim, vdim: horizontal and vertical dimensions of input data
  82. C      max, min:   maximum and minimum values in the data
  83. C      hscale,vscale: optional horizontal and vertical scales
  84. C      data:       input data
  85. C      palette:    optional palette to be stored with the image
  86. C      outfile:n   name of hdf file to store image in
  87. C      ct_method:  color transform method: 1=EXPAND; 2=INTERP
  88. C      hres, vres: resolutions desired for output image
  89. C      compress:   compression flag: 0=don't; 1=do
  90. C  Returns: 0 on success, -1 on failure with DFerror set
  91. C  Users:       HDF HLL (high-level library) users, utilities, other routines
  92. C  Invokes: process
  93. C  Remarks: none
  94. C----------------------------------------------------------------------------
  95.  
  96.  
  97.       integer function dfufptoimage(hdim,vdim,max,min,hscale,vscale,
  98.      *           data, palette,outfile,ct_method,hres,vres,compress)
  99.  
  100.       integer       hdim, vdim
  101.       real          max, min, hscale, vscale, data
  102.       character*(*) palette
  103.       character*(*) outfile
  104.       integer       ct_method, hres, vres, compress
  105.  
  106.       dfufptoimage = 
  107.      *             duif2i(hdim,vdim,max,min,hscale,vscale,data,palette,
  108.      *              outfile,ct_method,hres,vres,compress, len(outfile))        
  109.       return
  110.       end
  111.  
  112.